Private Sub mnuCopy_Click()
    Dim datobj As New System.Windows.Forms.DataObject

    datobj.SetData System.Windows.Forms.DataFormats.Text, _
        txtSourceFile.Text
    System.Windows.Forms.Clipboard.SetDataObject datobj 
End Sub

Private Sub mnuPaste_Click()
    txtTargetFile.Text = _
        System.Windows.Forms.Clipboard.GetDataObject.GetData( _
        System.Windows.Forms.DataFormats.Text)
End Sub
